url <- 'https://raw.githubusercontent.com/kyleknox3/STA553/main/Week7/POC.csv'
gas <- read.csv(url)
set.seed(123)
sample <- gas %>% sample_n(500)
g <- list(scope = 'usa',
projection = list(type = 'albers usa'),
showland = TRUE,
landcolor = toRGB("gray95"),
subunitcolor = toRGB("gray85"),
countrycolor = toRGB("gray85"),
countrywidth = 0.5,
subunitwidth = 0.5)
fig <- plot_geo(sample, lat = ~ycoord, lon = ~xcoord) %>%
add_markers(text = ~paste("Address:",ADDRESS, "<br>County:", county,
"<br>State:", STATE, "<br>Zip Code:", ZIPnew),
hoverinfo= "text") %>%
layout(title = 'Gas Stations Accross the United States', geo = g)
fig
LS0tCnRpdGxlOiAiR2FzIFN0YXRpb25zIGluIHRoZSBVbml0ZWQgU3RhdGVzIgphdXRob3I6ICJLeWxlIEtub3giCmRhdGU6ICJXZWVrIDciCm91dHB1dDoKICBodG1sX2RvY3VtZW50OiAKICAgIHRvYzogZmFsc2UKICAgIHRvY19kZXB0aDogNAogICAgdG9jX2Zsb2F0OiBmYWxzZQogICAgZmlnX3dpZHRoOiA2CiAgICBudW1iZXJfc2VjdGlvbnM6IHllcwogICAgdG9jX2NvbGxhcHNlZDogeWVzCiAgICBjb2RlX2ZvbGRpbmc6IGhpZGUKICAgIGNvZGVfZG93bmxvYWQ6IHllcwogICAgc21vb3RoX3Njcm9sbDogdHJ1ZQogICAgdGhlbWU6IHJlYWRhYmxlCiAgICBmaWdfaGVpZ2h0OiA0Ci0tLQogIAogIDxzdHlsZSB0eXBlPSJ0ZXh0L2NzcyI+CiAgCiAgZGl2I1RPQyBsaSB7Cmxpc3Qtc3R5bGU6bm9uZTsKYmFja2dyb3VuZC1jb2xvcjpsaWdodGdyYXk7CmJhY2tncm91bmQtaW1hZ2U6bm9uZTsKYmFja2dyb3VuZC1yZXBlYXQ6bm9uZTsKYmFja2dyb3VuZC1wb3NpdGlvbjowOwpmb250LWZhbWlseTogQXJpYWwsIEhlbHZldGljYSwgc2Fucy1zZXJpZjsKY29sb3I6ICM3ODBjMGM7CiAgfQoKLyogbW91c2Ugb3ZlciBsaW5rICovCiAgZGl2I1RPQyBhOmhvdmVyIHsKY29sb3I6IHJlZDsKfQoKLyogdW52aXNpdGVkIGxpbmsgKi8KICBkaXYjVE9DIGE6bGluayB7CmNvbG9yOiBibHVlOwp9CgoKCmgxLnRpdGxlIHsKICBmb250LXNpemU6IDI0cHg7CiAgY29sb3I6IERhcmtibHVlOwogIHRleHQtYWxpZ246IGNlbnRlcjsKICBmb250LWZhbWlseTogQXJpYWwsIEhlbHZldGljYSwgc2Fucy1zZXJpZjsKICBmb250LXZhcmlhbnQtY2Fwczogbm9ybWFsOwp9Cmg0LmF1dGhvciB7IAogIGZvbnQtc2l6ZTogMThweDsKICBmb250LWZhbWlseTogIlRpbWVzIE5ldyBSb21hbiIsIFRpbWVzLCBzZXJpZjsKICBjb2xvcjogRGFya1JlZDsKICB0ZXh0LWFsaWduOiBjZW50ZXI7Cn0KaDQuZGF0ZSB7IAogIGZvbnQtc2l6ZTogMThweDsKICBmb250LWZhbWlseTogIlRpbWVzIE5ldyBSb21hbiIsIFRpbWVzLCBzZXJpZjsKICBjb2xvcjogRGFya0JsdWU7CiAgdGV4dC1hbGlnbjogY2VudGVyOwp9CmgxIHsKICBmb250LXNpemU6IDIycHg7CiAgZm9udC1mYW1pbHk6ICJUaW1lcyBOZXcgUm9tYW4iLCBUaW1lcywgc2VyaWY7CiAgY29sb3I6IGRhcmtyZWQ7CiAgdGV4dC1hbGlnbjogY2VudGVyOwp9CmgyIHsgLwogICAgZm9udC1zaXplOiAxOHB4OwogIGZvbnQtZmFtaWx5OiAiVGltZXMgTmV3IFJvbWFuIiwgVGltZXMsIHNlcmlmOwogIGNvbG9yOiBuYXZ5OwogIHRleHQtYWxpZ246IGxlZnQ7Cn0KCmgzIHsgCiAgZm9udC1zaXplOiAxNXB4OwogIGZvbnQtZmFtaWx5OiAiVGltZXMgTmV3IFJvbWFuIiwgVGltZXMsIHNlcmlmOwogIGNvbG9yOiBuYXZ5OwogIHRleHQtYWxpZ246IGxlZnQ7Cn0KCmg0IHsgLyogSGVhZGVyIDQgLSBhbmQgdGhlIGF1dGhvciBhbmQgZGF0YSBoZWFkZXJzIHVzZSB0aGlzIHRvbyAgKi8KICAgIGZvbnQtc2l6ZTogMThweDsKICBmb250LWZhbWlseTogIlRpbWVzIE5ldyBSb21hbiIsIFRpbWVzLCBzZXJpZjsKICBjb2xvcjogZGFya3JlZDsKICB0ZXh0LWFsaWduOiBsZWZ0Owp9CgovKiB1bnZpc2l0ZWQgbGluayAqLwogIGE6bGluayB7CiAgICBjb2xvcjogZ3JlZW47CiAgfQoKLyogdmlzaXRlZCBsaW5rICovCiAgYTp2aXNpdGVkIHsKICAgIGNvbG9yOiBncmVlbjsKICB9CgovKiBtb3VzZSBvdmVyIGxpbmsgKi8KICBhOmhvdmVyIHsKICAgIGNvbG9yOiByZWQ7CiAgfQoKLyogc2VsZWN0ZWQgbGluayAqLwogIGE6YWN0aXZlIHsKICAgIGNvbG9yOiB5ZWxsb3c7CiAgfQoKPC9zdHlsZT4KICAKICAKICBgYGB7ciBzZXR1cCwgaW5jbHVkZT1GQUxTRX0KIyBjb2RlIGNodW5rIHNwZWNpZmllcyB3aGV0aGVyIHRoZSBSIGNvZGUsIHdhcm5pbmdzLCBhbmQgb3V0cHV0IAojIHdpbGwgYmUgaW5jbHVkZWQgaW4gdGhlIG91dHB1dCBmaWxlcy4Kb3B0aW9ucyhyZXBvcyA9IGxpc3QoQ1JBTj0iaHR0cDovL2NyYW4ucnN0dWRpby5jb20vIikpCmlmICghcmVxdWlyZSgidGlkeXZlcnNlIikpIHsKICBpbnN0YWxsLnBhY2thZ2VzKCJ0aWR5dmVyc2UiKQogIGxpYnJhcnkodGlkeXZlcnNlKQp9CmlmICghcmVxdWlyZSgia25pdHIiKSkgewogIGluc3RhbGwucGFja2FnZXMoImtuaXRyIikKICBsaWJyYXJ5KGtuaXRyKQp9CmlmICghcmVxdWlyZSgiY293cGxvdCIpKSB7CiAgaW5zdGFsbC5wYWNrYWdlcygiY293cGxvdCIpCiAgbGlicmFyeShjb3dwbG90KQp9CmlmICghcmVxdWlyZSgibGF0ZXgyZXhwIikpIHsKICBpbnN0YWxsLnBhY2thZ2VzKCJsYXRleDJleHAiKQogIGxpYnJhcnkobGF0ZXgyZXhwKQp9CmlmICghcmVxdWlyZSgicGxvdGx5IikpIHsKICBpbnN0YWxsLnBhY2thZ2VzKCJwbG90bHkiKQogIGxpYnJhcnkocGxvdGx5KQp9CmlmICghcmVxdWlyZSgiZ2FwbWluZGVyIikpIHsKICBpbnN0YWxsLnBhY2thZ2VzKCJnYXBtaW5kZXIiKQogIGxpYnJhcnkoZ2FwbWluZGVyKQp9CmlmICghcmVxdWlyZSgicG5nIikpIHsKICBpbnN0YWxsLnBhY2thZ2VzKCJwbmciKSAgICAgICAgICAgICAjIEluc3RhbGwgcG5nIHBhY2thZ2UKICBsaWJyYXJ5KCJwbmciKQp9CmlmICghcmVxdWlyZSgiUkN1cmwiKSkgewogIGluc3RhbGwucGFja2FnZXMoIlJDdXJsIikgICAgICAgICAgICAgIyBJbnN0YWxsIFJDdXJsIHBhY2thZ2UKICBsaWJyYXJ5KCJSQ3VybCIpCn0KaWYgKCFyZXF1aXJlKCJjb2xvdXJwaWNrZXIiKSkgewogIGluc3RhbGwucGFja2FnZXMoImNvbG91cnBpY2tlciIpICAgICAgICAgICAgICAKICBsaWJyYXJ5KCJjb2xvdXJwaWNrZXIiKQp9CmlmICghcmVxdWlyZSgiZ2lmc2tpIikpIHsKICBpbnN0YWxsLnBhY2thZ2VzKCJnaWZza2kiKSAgICAgICAgICAgICAgCiAgbGlicmFyeSgiZ2lmc2tpIikKfQppZiAoIXJlcXVpcmUoIm1hZ2ljayIpKSB7CiAgaW5zdGFsbC5wYWNrYWdlcygibWFnaWNrIikgICAgICAgICAgICAgIAogIGxpYnJhcnkoIm1hZ2ljayIpCn0KaWYgKCFyZXF1aXJlKCJnckRldmljZXMiKSkgewogIGluc3RhbGwucGFja2FnZXMoImdyRGV2aWNlcyIpICAgICAgICAgICAgICAKICBsaWJyYXJ5KCJnckRldmljZXMiKQp9CiMjIyBnZ3Bsb3QgYW5kIGV4dGVuc2lvbnMKaWYgKCFyZXF1aXJlKCJnZ3Bsb3QyIikpIHsKICBpbnN0YWxsLnBhY2thZ2VzKCJnZ3Bsb3QyIikgICAgICAgICAgICAgIAogIGxpYnJhcnkoImdncGxvdDIiKQp9CmlmICghcmVxdWlyZSgiZ2dhbmltYXRlIikpIHsKICBpbnN0YWxsLnBhY2thZ2VzKCJnZ2FuaW1hdGUiKSAgICAgICAgICAgICAgCiAgbGlicmFyeSgiZ2dhbmltYXRlIikKfQppZiAoIXJlcXVpcmUoImdncmlkZ2VzIikpIHsKICBpbnN0YWxsLnBhY2thZ2VzKCJnZ3JpZGdlcyIpICAgICAgICAgICAgICAKICBsaWJyYXJ5KCJnZ3JpZGdlcyIpCn0KaWYgKCFyZXF1aXJlKCJkcGx5ciIpKSB7CiAgaW5zdGFsbC5wYWNrYWdlcygiZHBseXIiKSAgICAgICAgICAgICAgCiAgbGlicmFyeSgiZHBseXIiKQp9CmlmICghcmVxdWlyZSgiaHRtbHRvb2xzIikpIHsKICBpbnN0YWxsLnBhY2thZ2VzKCJodG1sdG9vbHMiKSAgICAgICAgICAgICAgCiAgbGlicmFyeSgiaHRtbHRvb2xzIikKfQppZiAoIXJlcXVpcmUoInJtYXJrZG93biIpKSB7CiAgaW5zdGFsbC5wYWNrYWdlcygicm1hcmtkb3duIikgICAgICAgICAgICAgIAogIGxpYnJhcnkoInJtYXJrZG93biIpCn0KIyBrbml0cjo6b3B0c19rbml0JHNldChyb290LmRpciA9ICIvVXNlcnMva3lsZWtub3gvRG9jdW1lbnRzL00uUy4gQXBwbGllZCBTdGF0aXN0aWNzL1NQUklORyAyMDI0L1NUQTUzMy93ZWVrNykKIyBrbml0cjo6b3B0c19rbml0JHNldChyb290LmRpciA9ICJDOlxcU1RBNDkwXFx3MDUiKQoKa25pdHI6Om9wdHNfY2h1bmskc2V0KGVjaG8gPSBUUlVFLCAgICAgICAKICAgICAgICAgICAgICAgICAgICAgIHdhcm5pbmcgPSBGQUxTRSwgICAKICAgICAgICAgICAgICAgICAgICAgIHJlc3VsdCA9IFRSVUUsICAgCiAgICAgICAgICAgICAgICAgICAgICBtZXNzYWdlID0gRkFMU0UpCmBgYAoKCmBgYHtyIGNvZGUsIGZpZy5oZWlnaHQ9IDcsIGZpZy53aWR0aD0gOX0KdXJsIDwtICdodHRwczovL3Jhdy5naXRodWJ1c2VyY29udGVudC5jb20va3lsZWtub3gzL1NUQTU1My9tYWluL1dlZWs3L1BPQy5jc3YnCmdhcyA8LSByZWFkLmNzdih1cmwpCgpzZXQuc2VlZCgxMjMpCnNhbXBsZSA8LSBnYXMgJT4lIHNhbXBsZV9uKDUwMCkKCmcgPC0gbGlzdChzY29wZSA9ICd1c2EnLAogICAgICAgICAgcHJvamVjdGlvbiA9IGxpc3QodHlwZSA9ICdhbGJlcnMgdXNhJyksCiAgICAgICAgICBzaG93bGFuZCA9IFRSVUUsCiAgICAgICAgICBsYW5kY29sb3IgPSB0b1JHQigiZ3JheTk1IiksCiAgICAgICAgICBzdWJ1bml0Y29sb3IgPSB0b1JHQigiZ3JheTg1IiksCiAgICAgICAgICBjb3VudHJ5Y29sb3IgPSB0b1JHQigiZ3JheTg1IiksCiAgICAgICAgICBjb3VudHJ5d2lkdGggPSAwLjUsCiAgICAgICAgICBzdWJ1bml0d2lkdGggPSAwLjUpCgpmaWcgPC0gcGxvdF9nZW8oc2FtcGxlLCBsYXQgPSB+eWNvb3JkLCBsb24gPSB+eGNvb3JkKSAlPiUKICBhZGRfbWFya2Vycyh0ZXh0ID0gfnBhc3RlKCJBZGRyZXNzOiIsQUREUkVTUywgIjxicj5Db3VudHk6IiwgY291bnR5LAogICAgICAgICAgICAgICAgICAgICAgICAgICAgIjxicj5TdGF0ZToiLCBTVEFURSwgIjxicj5aaXAgQ29kZToiLCBaSVBuZXcpLAogICAgICAgICAgICAgIGhvdmVyaW5mbz0gInRleHQiKSAlPiUKICBsYXlvdXQodGl0bGUgPSAnR2FzIFN0YXRpb25zIEFjY3Jvc3MgdGhlIFVuaXRlZCBTdGF0ZXMnLCBnZW8gPSBnKQoKZmlnCgpgYGAKCgoKCg==